Imports System.Web
Public Class IWebAuthendication

    Public Shared Function AttachCredentials() As IWebservice.IWebAuthendicationHeader
        Dim IWebAuthendicationHeader As New IWebservice.IWebAuthendicationHeader

        IWebAuthendicationHeader.PortalID = IWeb_Form.txtPortal.Text
        IWebAuthendicationHeader.Username = IWeb_Form.txtUsername.Text
        IWebAuthendicationHeader.Password = IWeb_Form.Password()
        IWebAuthendicationHeader.Encrypted = IWeb_Form.chkEncrypted.Checked

        Return IWebAuthendicationHeader
    End Function
End Class